home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / INTCM353 / MORSELES.BAS < prev   
BASIC Source File  |  1997-11-18  |  3KB  |  89 lines
  1. REM-ark Genereert een MORSE.MSG met random tekens
  2. REM-ark Bewaar wel de originele file!
  3. REM-ark Werkt met Q-BASIC en QUICK-BASIC
  4.  
  5. REM-ark Generate an MORSE.MSG with random characters
  6. REM-ark Save the original file!
  7. REM-ark Works with Q-BASIC and QUICK-BASIC
  8.  
  9.  
  10. DEFINT A-Z
  11. RANDOMIZE TIMER
  12. CLS
  13. OPEN "MORSE.MSG" FOR OUTPUT AS #1
  14.  
  15. PRINT #1,
  16. PRINT #1, "@@ MORSELES LETTERS"
  17. FOR regel = 1 TO 6
  18.     FOR groep = 1 TO 10
  19.         FOR teller = 1 TO 5
  20.         GETAL = 65 + RND * 25
  21.         PRINT #1, CHR$(GETAL);
  22.     NEXT teller
  23.     PRINT #1, " ";
  24. NEXT groep
  25. PRINT #1,
  26. NEXT regel
  27.  
  28. PRINT #1, "@@ MORSELES CIJFERS" 'NUMBERS
  29. FOR regel = 1 TO 6
  30.     FOR groep = 1 TO 10
  31.         FOR teller = 1 TO 5
  32.             GETAL = 48 + RND * 9
  33.             PRINT #1, CHR$(GETAL);
  34.         NEXT teller
  35.         PRINT #1, " ";
  36.    NEXT groep
  37.    PRINT #1,
  38. NEXT regel
  39.  
  40. PRINT #1, "@@ MORSELES CIJFERS en LETTERS"
  41. FOR regel = 1 TO 6
  42.     FOR groep = 1 TO 10
  43.         FOR teller = 1 TO 5
  44.             lopen:
  45.             GETAL = 48 + RND * 42
  46.             IF GETAL > 49 AND GETAL < 65 THEN GOTO lopen
  47.             PRINT #1, CHR$(GETAL);
  48.         NEXT teller
  49.         PRINT #1, " ";
  50.     NEXT groep
  51.     PRINT #1,
  52. NEXT regel
  53.  
  54. PRINT #1, "@@ MORSELES CIJFERS, LETTERS EN LEESTEKENS"
  55. FOR regel = 1 TO 6
  56.     FOR groep = 1 TO 10
  57.         FOR teller = 1 TO 5
  58.             HERREN:
  59.             GETAL = 32 + RND * 62
  60.             IF GETAL >= 49 AND GETAL <= 57 THEN GOTO BEREIK
  61.             IF GETAL >= 65 AND GETAL <= 90 THEN GOTO BEREIK
  62.             IF GETAL = ASC("^") THEN GOTO BEREIK
  63.             IF GETAL = ASC("(") THEN GOTO BEREIK
  64.             IF GETAL = ASC(")") THEN GOTO BEREIK
  65.             IF GETAL = ASC("-") THEN GOTO BEREIK
  66.             IF GETAL = ASC("_") THEN GOTO BEREIK
  67.             IF GETAL = ASC("[") THEN GOTO BEREIK
  68.             IF GETAL = ASC("]") THEN GOTO BEREIK
  69.             IF GETAL = ASC(";") THEN GOTO BEREIK
  70.             IF GETAL = ASC(":") THEN GOTO BEREIK
  71.             IF GETAL = ASC("'") THEN GOTO BEREIK
  72.             IF GETAL = 34 THEN GOTO BEREIK          '"
  73.             IF GETAL = ASC(",") THEN GOTO BEREIK
  74.             IF GETAL = ASC(".") THEN GOTO BEREIK
  75.             IF GETAL = ASC("?") THEN GOTO BEREIK
  76.             IF GETAL = ASC("/") THEN GOTO BEREIK
  77.             GOTO HERREN                        'verkeerde combinatie, herhaal
  78.                                                'wrong combination, repeat
  79.             BEREIK:
  80.             PRINT #1, CHR$(GETAL);
  81.         NEXT teller
  82.         PRINT #1, " ";
  83.     NEXT groep
  84.     PRINT #1,
  85. NEXT regel
  86. CLOSE #1
  87. END
  88.  
  89.